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WORK  STATEMENT 


The  development  of  an  analytical  approach  to  quantitate  tricyclic 
aromatics  In  diesel  fuels. 

The  development  of  an  analytical  approach  to  quantitate  alkenes  In 
diesel  fuels. 

The  development  of  an  analytical  approach  to  quantitate  conjugated 
alkenes  In  diesel  fuels. 

The  development  of  a  calculative  method  to  convert  molar  and  average 
molecule  NHR  derived  data  to  weight  %  data. 


I.  The  Development  of  an  Analytical  Approach  to  Quantitate  Tricyclic 

Aromatics  in  Diesel  Fuels 

In  this  phase  of  the  study  attention  focused  on  extending  the  LC-^NMR 
(1-5)  approach  to  the  characterization  of  tricyclic  aromatics  In  typical  fuel 
samples  (e.g.,  diesel  fuels).  We  previously  established  that  the  normal  phase 
liquid  chromatographic  columns*  normally  employed  In  the  LC-^NMR  approach  are 
usually  adequate  to  allow  separation  of  tricyclic  aromatics.  The  major 
limitation  is  the  sensitivity  of  the  NMR  detector  in  the  LC-^H  NMR 
approach.  For  example,  tricyclic  aromatics  at  concentrations  below  -0.5X  In 
the  fuel  are  difficult  to  detect  and  quantitate  utilizing  LC-^NMR.  In  the 
first  year  of  this  study,  considerable  effort  was  directed  at  Improvements  In 
the  LC-^H  NMR  flow  cell  design  (7,8).  However,  operation  of  superconducting 
NMR  solenoids  at  higher  field  strengths  (e.g.,  9.4T,  at  400  MHz)  Is  a  more 
direct  way  of  alleviating  this  sensitivity  problem.  With  the  present  4.7T 
(200  MHz)  LC-^H  NMR  system  sensitivity  limits  of  -0.25*  for  the  tricyclic 
aromatics  appears  reasonable. 

The  average  composition  method  (5)  which  was  previously  limited  to 
alkanes,  monocyclic  aromatics,  and  dlcycHc  aromatics  has  now  been  expanded  to 
Include  tricyclic  aromatics.  The  "average  structure"  expressions  for 
fluorenes  and  phenanthrenes  parallels  the  expressions  previously  derived  for 
the  monocyclic  and  dicycllc  aromatic  fractions  (5).  The  normalization 
equation  for  fluorenes  has  the  same  form  as  that  for  naphthalene  (see  2 
below),  the  constant  for  phenanthrene  Is  given  by  equation  (1)  below. 


nP  *  (cP+  cP  k)/io 

'  un  sub' 


*  For  example,  Whatman-9  silica  gel  PAC  column  (500  mm  x  9  mm  i.d.) 
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“  (C^  +  i.)/8 

'  un  sub' 

Both  fluorenes  and  phenathrenes  have  four  bridgehead  carbons  (equations 
3  and  4). 


^^un  *  ^sub^^^ 


The  proton  spectral  region  for  the  case  of  alkyl  substitution  In  fluorenes  and 
phenanthrenes  Is  determined  In  a  similar  manner  to  the  previously  described 
method  for  naphthalenes(5) .  In  the  case  of  fluorene,  alkyl  substitution  at 
the  methylene  bridge  between  aromatic  rings  wasn't  considered.  The  bridging 
methylene  Is  reported  as  a  part  of  the  methylene  carbon  a  to  an  aromatic  ring 
(C^cH  )•  The  expression  for  determining  the  bridging  methylene  Is  shown 
below. 

^BM  "  ^^un 

As  in  the  cases  for  monocyclic  and  dlcycHc  aromatics  the  equations 
assume  that  no  branching  exists  past  the  a  position.  All  substituted  carbons 
are  then  determined  in  the  same  manner  as  previously  reported  (5). 

The  fractional  aromaticity  equation  has  been  expanded  to  Include 
tricyclic  aromatics  (fl  and  f8). 

fa  =  fa*"  +  fa^  +  fa^  +  fa^  [6] 

The  fraction  of  total  carbon  In  each  chromatographic  peak  (relative  to  the 
entire  sample)  has  also  been  changed  to  reflect  the  presence  of  tricyclics 
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(F^otalC  *^totalC^’  value  for  the  alkane  fraction  Is  still  obtained  by 
difference. 

F®  a  1-F®*  -  F^  -  F^  -  fP  r7l 

“^totalC  ^  '^totalC  ^totalC  ^totalC  '^totalC  ^ 

During  the  last  2-3  years,  we  have  reported  tricyclic  aromatic  data  for 

various  fuels  based  on  the  above  procedure  (9).  In  order  to  test  the  level  of 
agreement  of  this  approach  as  well  as  establish  the  lower  limits  of  detection, 
a  fuel  (85-06)  not  containing  appreciable  levels  (>0.25%)  of  tricyclic 
aromatics  was  purposely  doped  with  1%  (w/w)  fluorene  and  phenanthrene. 

Figures  la-e  and  2a-e  illustrate  the  LC-^H  NMR  profiles  for  fuel  (85-06)  in 
the  absence  and  presence,  respectively,  of  1%  (v/v)  fluorene  and  phenanthrene. 
It  is  clear  that  the  only  difference  in  these  figures  (Figure  1  vs  2)  is  the 
additional  peaks  in  Figures  2d  and  2e  attributable  to  fluorene  and 
phenanthrene.  Tables  I  and  II  provide  the  average  molecule  data  for  fuel  85- 
06  (doped  and  undoped)  which  also  indicate  reasonably  good  agreement. 

However,  Impurities  in  the  alkane  region  appear  to  slightly  alter  the  average 
molecule  properties  for  monocyclic  and  dicyclic  fractions  for  the  two  separate 
experiments.  More  importantly,  the  measured  weight  X  data  values  of  1.1  and 
1.1  for  the  phenanthrene  and  fluorene  are  in  excellent  agreement  with  the 
doped  levels  of  l.OX  for  each,  respectively.  It  should  also  be  noted  that  the 
average  molecule  data  for  both  tricyclics  contain  background  NMR  signals  in 
the  alkyl  region  (0.5  -  2  ppm).  Once  again,  these  data  suggest  alkyl 
contributions  to  the  average  tricyclic  molecule  data  which  are  obviously  not 
present.  However,  the  level  of  agreement  is  still  quite  remarkable  for  fuels 
at  the  It  level.  Furthermore,  all  and  P^Qtal  Indicate  a  high 

level  of  agreement  for  the  two  experiments  (see  Tables  I  and  II). 

In  a  second  experiment,  fuel  (85-06)  was  also  doped  at  the  0.5%  level. 
Figure  3  illustrates  the  corresponding  (S/N)  levels  for  this  sample  for  the 


fluorene  “slice"  of  the  LC-^H  NMR  profile.  This  is  also  compared  with  the 
previously  doped  sample  at  the  IX  level.  From  this  data  we  estimate  that  with 
present  instrumentation,  the  limits  of  detection  for  tricyclic  aromatics  is 
-0.25X.  Finally,  it  should  be  noted  the  0.5%  level  provided  measured  values 
of  0.6%  and  0.7%  for  fluorene  and  phenanthrene,  respectively.  These  values 
are  in  fair  agreement,  especially  in  view  of  the  background  problem  noted 
above.  Representative  parameters  for  tricyclic  aromatics  are  illustrated  in 
Figure  4.  A  copy  of  the  modified  program  for  inclusion  of  tricyclic  aromatics 
is  also  given  in  Appendix  I. 

II .  The  Development  of  an  Analytical  Approach  to  Quantitate  Uncon.iuqated 
and  Conjugated  Alkenes  in  Diesel  Fuels 

Various  research  groups  have  suggested  methods  to  chemically 
characterize  and  identify  alkenes  in  fuels.  However,  new  analytical 
methodology  is  still  highly  desirable.  There  are  two  major  problems  in 
characterizing  the  alkene  content  in  fuels.  Typically,  most  fuels  exhibit  low 
alkene  concentrations  (i.e.,  <1%)  and  chromatographic  separation  from  other 
chemical  classes  (e.g.,  alkanes  and  monocyclic  aromatics)  is  difficult  to 
achieve.  The  latter  problem  is  undoubtedly  the  more  formidable  one. 

Therefore,  we  focused  attention  on  this  problem  during  the  first  phase  of  this 
study. 

It  is  well  known  that  Ag®  ion  can  reversibly  complex  with  alkenes  as 


illustrated  below  for  cyclohexene. 


Various  chromatographic  separations  of  alkenes  have  been  reported  in  the 
literature(10-12)  for  AgNO^  impregnated  chromatographic  columns.  Thus,  one 
would  anticipate  that  AgNO^  chromatographic  columns  might  allow  efficient 
separation  of  alkenes  from  other  hydrocarbon  classes  in  fuels  (e.g.,  alkanes 
and  monocyclic  aromatics).  The  specific  experiments  performed  in  this  phase 
of  the  study  are  outlined  below. 

A.  Attempted  Separation  of  the  Alkene  Fraction  in  Fuels  by  AgNO^ 
Impregnated  Chromatographic  Columns 

The  experiments  outlined  below  utilized  a  simple  model  mixture  which 
hopefully,  simulates  the  chromatographic  properties  of  a  typical  fuel.  The 
model  mixture  contained  isoctane,  1-methyl  naptha lene,  xylene,  and  1-hexene  at 
mole  percent  concentrations  of  90.1,  6.6,  2.2  and  1.0,  respectively.  A  1  gram 
sample  of  this  model  mixture  was  loaded  on  an  open  tubular  chromatographic 
column  containing  50  g  of  silica  gel*  with  5%  AgNO^.  The  eluting  solvent  was 
a  50/50  mixture  of  hexane  and  benzene.  The  chromatographic  fractions  were 
monitored  by  static  NMR**.  In  this  case,  serious  chromatographic  overlap 
occurred,  since  the  1-hexene  was  present  in  both  the  isooctane  and  later 
eluting  m- xylene  fraction.  Various  experimental  conditions  were  also  changed 
in  the  hope  of  affecting  a  better  chromatographic  separation  (vide  infra). 

1.  A  lower  loading  level  (0.1  g  of  model  mixture/50  g  of  support) 
was  tried. 


*  The  initial  experiments  utilized  silica  gel  containing  5%  AgNO,  (w/w). 
However,  silver  nitrate  levels  as  high  as  15%  (w/w)  were  also  tried.  The 
typical  methods  for  preparing  these  silver  nitrate  impregnated  silica  gel 
columns  have  been  previously  described(8-10). 

**  The  NMR  peaks  at  -5  ppm  were  used  to  monitor  the  presence  of 
1-hexene. 
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2.  A  less  volatile  alkene  (1-octene)  was  substituted  for  1-hexene 

in  the  model  mixture,  however,  chromatographic  separation  was 
stijl  not  achieved  with  this  new  model  mixture. 

3.  An  even  simpler  model  mixture  containing  only  It  1-octene  and 
99X  isoctane  was  subjected  to  chromatographic  separation.  A 
load  level  of  0.1  g  on  50  g  of  support  (5X  AgNO,  on  silica  gel) 
was  used  in  the  same  manner  as  previously  described.  However, 
significant  chromatographic  overlap  of  the  isoctane  and  1- 
octene  fractions  still  occurred. 

4.  Alternative  solvents  were  also  examined  including  freon-113 
and  pentane. 

In  all  experiments  above,  separation  of  the  alkenes  (1-hexene  or  1- 
octene)  from  the  alkane  (isoctane)  and  monocyclic  aromatic  (m-xylene)  fraction 
was  not  achieved. 

In  summary,  we  are  not  exactly  certain  why  a  "class"  separation  of 
alkenes  was  not  achieved  with  open  tubular  AgNO^  impregnated  silica  gel 
columns,  since  the  literature  certainly  suggests  the  feasibility  of  this 
approach.  However,  the  high  percentage  of  alkanes  (e.g. ,  isoctane)  appear  to 
chromatographical ly  tail  into  the  alkene  fraction,  thereby,  preventing  a  clear 
separation. 

In  addition  to  the  experiments  described  above,  HPLC  silica  gel  columns 
were  also  impregnated  with  AgNO^.  However,  results  similar  to  the  case  of  the 
open  tubular  columns  were  observed.  Namely,  a  separation  of  the  isoctane  and 
1-octene  fractions  was  not  achieved. 


B.  Development  of  a  F  NMR  Tagging  Method  for  Concentrating  and 
Characterizing  Alkenes 

In  view  of  the  limited  success  in  achieving  a  chromatographic  class 
separation  of  alkenes  (vide  supra),  other  studies  aimed  at  concentrating  and 
characterizing  alkenes  present  in  fuels  were  examined.  To  date,  the  best 


approach  we  have  found  consists  of  four  steps;  (1)  chemical  conversion  of  the 
alkenes  to  alcohols  in  the  fuels,  (2)  concentration  of  the  alcohols  by 


precipitation  with  n-butyl  lithium,  (3)  conversion  of  the  alkoxide  salts  to  p- 

fluorobenzoate  esters,  and  (4)  characterization  of  the  p-fluorobenzoate  esters 
19 

by  F  NMR.  Although  the  number  of  steps  in  this  procedure  appears  to  be 
excessive,  nevertheless,  the  entire  procedure  can  be  accomplished  in  four  to 
eight  hours.  In  addition,  several  steps  may  eventually  be  combined.  In  a 
typical  experiment,  10  pi  of  cyclohexene  was  diluted  in  50  ml  of  n-hexane 
(0.02Xv/v).  This  model  system  was  then  treated  with  50  ml  of  HPLC  grade 
tet ra hydro fu ran  (THF),  5  ml  of  water  and  2  g  of  mercuric  acetate  (Hg(0Ac)2). 
After  formation  of  the  coresponding  oxymercuration  products,  a  basic  water 
solution  of  NaBH^  was  added  to  reduce  the  oxymercuration  products  to  the 
coresponding  alcohols  (13).  After  drying  over  anhydrous  MgSO^,  the  organic 
phase  was  treated  with  n-butyl  lithium  to  precipitate  the  lithium  alkoxide 
salts.  After  filtration  (concentration  by  removal  of  nonreacting  hexane)  the 
lithium  alkoxide  salts  were  treated  with  p-fluorobenzoyl  chloride  in  THF  to 
prepare  the  corresponding  p-fluorobenzoate  ester  derivatives.  The  entire 
reaction  scheme  is  illustrated  below  for  cyclohexene: 


(1)  Hg(0Ac)2/THF/H20 

(2)  NaBH^ 


0 

(1)  Cl-C-^  F 

(2)  H2O 


n-BuLi/THF 


The  final  step  in  the  procedure  is  characterization  of  the  p- 
10  10 

fluorobenzoate  esters  by  F  NMR.  In  the  future,  LC-  F  NMR  could  be  used  for 


even  better  separation  and  characterization  of  the  various  alkenes  in  a  given 
fuel.  It  should  be  noted  also  that  a  given  fuel  could  be  initially  treated 
with  n-butyl  lithium  to  separate  and  characterize  any  alcohol  and/or  phenol 


components  in  the  fuel  before  conversion  of  the  alkenes  to  the  corresponding 
alcohols  via  the  o)cymercuration  procedure. 

ig 

To  illustrate  the  approach.  Figure  5  is  the  F  NMR  spectrum  for  the  p- 
fluorobenzoate  ester  of  the  dilute  alkene  sample  characterized  in  the  manner 
described  above.  Peaks  #2  and  #3  in  Figure  5  are  the  signals  due  to  the  F 
chemical  shift  (CFCI2CFCI2. Freon-113)  and  quantitation  (ooux- 
trifluoroacetophenone)  reference,  respectively.  In  addition,  peaks  #4  and  #5 
are  the  F  NMR  signals  due  to  the  derivatizing  agent  (p-fluorobenzoyl 
chloride)  and  the  hydrolysis  product  (p-fluorobenzoic  acid),  respectively.  Of 
particular  importance,  peak  #6  is  the  derivative  peak  of  interest  for 
cyclohexanol .  In  other  studies,  it  has  been  observed  that  peaks  due  to 
derivatives  of  other  classes  (e.g.,  phenols,  amines,  etc.)  do  not  overlap  in 
the  region  of  interest  for  p-fluorobenzoate  ester  derivatives  of  alcohols 
(14).  However,  we  have  found  that  traces  of  alcohols  in  the  solvents  used  in 
the  procedure  (e.g.,  THF)  are  also  derivatized  unless  very  high  purity 
solvents  are  employed  and/or  precautions  are  taken  to  exclude  these  alcohol 
impurities. 

In  order  to  further  test  the  procedure,  an  actual  fuel  sample  was  also 
examined  (Fuel  80-63).  Utilizing  the  same  procedure  described  (50  ml  of 
fuel).  Figure  6  is  the  F  spectrum  for  the  p-fluorobenzoate  derivatives  of 
this  fuel  sample.  Peaks  #5  and  #6  in  this  spectrum  are  assigned  to  unreacted 
p-f luorobenzyl  chloride  and  p-fluorobenzoic  acid,  respectively.  However,  the 
small  peak  #7  (-0.0013%)  is  in  the  appropriate  region  for  diols  (e.g.,  2,3- 
butanediol,  6p*-38.27  ppm,  ref.  14a).  Furthermore,  peak  #8  (-0.14%,  based  on 
peak  #2)  is  in  the  appropriate  region  for  secondary  alcohol  derivatives  and 
could  resu71t  from  olefins  in  Fuel  80-63  (14a).  However,  it  should  be 
cautioned  that  although  all  attempts  were  made  to  exclude  alcohol  impurities 
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from  the  solvents  employed,  a  second  possibility  Is  that  peak  #8  could  be  due 
to  solvent  Impurities  at  this  low  level  (-0.14X).  The  peak  at  43.15  ppm  (Peak 
#9)  Is  Indicative  of  a  secondary  amine  (e.g. ,  diisopropyl  am1ne,6p=-43.14 
ppm).  Peak  #10  Is  a  foldover  peak  and  Is  not  a  derivative  peak. 

In  conclusion,  the  results  above  are  promising.  However,  a  number  of 
potential  pitfalls  need  to  be  examined  before  this  approach  can  be  used  to 
quantitate  the  alkene  content  In  a  given  fuel. 


m 
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III.  The  Development  of  a  Calculative  Method  to  Convert  Molar  and  Average 
Molecule  NMR  Derived  Data  to  Weight  X  Data 


The  original  average  molecule  program  (5)  has  now  been  modified  to 
calculate  weight  %  data  for  each  chromatographic  fraction.  Three  different 
approaches  were  examined  for  the  determination  of  weight  %  data.  In  the 
following  discussion,  the  various  equations  and  terms  follow  the  format  we 
used  In  a  previously  published  paper  (5).  In  addition  several  definitions  are 
reported  In  Table  III. 

Method  1 

In  this  method,  the  average  number  of  moles  for  and 

are  readily  obtained  from  the  "average  molecule"  approach  (e.g.,  see  ref.  5, 
eq.  16  and  18).  In  addition,  the  average  molecular  weights  are  also 
determined  by  this  approach  (e.g.,  see  ref.  5,  eg.  16  and  19).  In  a  similar 
fashion  and  are  also  readily  determined  (see  Section  I  of  this 

report).  Thus,  w"’,  W^,  and  are  readily  calculated,  since  the  average 
number  of  moles  and  molecular  weights  are  known  for  these  fractions.  Next, 
the  fraction  of  total  carbon  In  the  alkane  fraction  Is  obtained  by  difference 
from  the  following  equation. 

F®  =  1  _  F***  -  F^  -  F^  -  fP  Ffil 

^totalC  ^  ^totalC  "^totalC  "^totalC  ^totalC 


•  •  ■  «  ■  1  ■  v  '■  ^  ■  1 
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It  should  be  noted  that  F 


m 


totalC*  ^totalC’  ^totalC’  '"totalC  ®''® 
derived  quantities  from  the  average  molecule  approach.  If  carbon  aromaticity 
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data  Is  obtained  from  the  C  spectrum  (see  eq.  20,  21  and  22  In  ref.  5).  The 

total  alkane  carbon  content  (Cj)  can  then  be  calculated  since  all  the 

quantities  In  the  right-hand  side  of  eq.  8  below  are  then  known. 

fc®  Wr*"  +  +  pP 

-a  ^"^totalC^^^total  Hotal  ^total  ‘'total 

‘'T  ■ - - 

-m 


) 


[9J 


(c^  x  +  F*  +  pP  \ 

‘'^totalC  ^totalC  ^totalC  “^totalC^ 


To  obtain  the  weight*  for  the  alkane  fraction  we  assume  an  average 
weight  per  alkane  carbon  and  attached  hydrogen  atoms  of  14.2.  This  value 
assumes  a  C^2  hydrocarbon;  assuming  other  chain  lengths  and/or  branched 

alkanes  will  change  this  number  slightly  (e.g.,  CgH^2  ‘  ^15^32  range 

from  14.40  -  14.13). 


[10] 


The  weight  X  alkane,  monocyclic,  dicycllc,  etc.,  fractions  are  then 
easily  obtained. 


ytotal  =  w®  +  ym  +  w'*  +  +  WP 


WP^  =  X  100 


[11] 

[12] 


The  major  limitation  of  Method  1  Is  the  assumption  of  14.2  for  the 
average  weight  per  alkane  carbon  and  attached  hydrogens.  In  addition,  the  C® 
values  critically  depend  on  accurate  f®  values  normally  obtained  from 
quantitative  NMR  data. 

Method  2 


In  this  method  C 


m 


total,  total,  ''total 


and  are  obtained  in  the 


same  manner  as  Method  1.  However,  Is  obtained  in  a  different  manner. 


-  •  •  •  • 
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The  major  drawback  with  this  approach  Is  the  exclusion  of  quaternary  alkane 
carbons  In  the  total  weight  W*  (or  UP®)  for  the  alkane  fraction. 

Method  3 

In  this  method  the  density  of  the  original  fuel  Is  experimentally 
determined.  Then,  for  a  given  LC-^H  NMR  Injection  volume  (e.g.,  100  pi)  the 
total  weight  of  fuel  Injected  Is  known.  Thus  W®  can  be  calculated 

by  difference  from  eq.  10  where  W^’  and  are  obtained  In  the  same  manner 
as  Methods  1  and  2.  A  limitation  of  this  method  Is  the  need  for  an  external 
density  measurement  of  the  fuel  as  well  as  errors  associated  with  the  use  of 
the  loop  Injector  for  the  LC-pump  system. 


In  order  to  test  the  accuracy  of  Methods  1-3,  LC-^H  NMR,  FTNMR,  and 
density  data  were  obtained  for  "model  mixture  C"  (15).  This  is  the  same  model 
mixture  which  was  previously  employed  (5)  to  test  the  accuracy  of  the  average 
molecular  approach  (see  Table  II,  ref.  5).  In  Table  IV,  the  average  weight  % 
data  are  reported  for  model  mixture  C  using  Methods  1-3  and  are  compared  with 
the  known  values.  Of  the  three  methods.  Method  1  compares  favorably  with  the 
known  values.  Whereas,  Method  2  has  a  lower  value  for  WP*  in  comparison  with 
the  known  value.  This  is  consistent  with  the  fact  that  model  mixture  C 
contains  an  appreciable  quantity  (200. 40g)  of  isooctane  and  is  the  only  alkane 
hydrocarbon  in  this  model  mixture  which  contains  a  quaternary  carbon  atom.  It 
should  be  recalled  that  a  major  drawback  in  utilizing  Method  2  is  the 
inability  of  this  approach  to  "count"  quaternary  carbons  in  the  weight  percent 
determination  for  the  alkane  fraction  (WP^).  Method  3  appears  to  give  only 
approximate  values,  however,  further  tests  of  the  reliability  and  precision  of 
this  method  should  be  undertaken.  This  method  crucially  depends  on  a  separate 
density  determination  and  accurate  injection  of  a  known  volume  of  a  given 
fuel . 

In  conclusion.  Method  1  appears  to  provide  reasonably  accurate  weight 
percent  data  (WP®,  WP”,  WP'*,  etc.).  We  normally  employ  Method  1  to  obtain 
weight  percent  data  (See  program  in  the  Appendix).  For  example,  in  Table  V 
typical  weight  percent  data  for  various  fuels  are  reported.  Nevertheless,  a 
more  accurate  method  for  obtaining  weight  percent  data  is  still  desired.  In 
this  regard,  a  recent  paper  (16)  describing  a  method  for  on-line  density 
measurements  could  ultimately  be  used  in  conjunction  with  the  LC-^H  NMR 
approach. 
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ge  Molecule  Properties  for  Fuel  85-06  Spiked  With  1%  Fluorene  and  1%  Phenanthrene 
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W 


total 

WP^ 


TABLE  III 

=  weight  of  the  alkane  fraction 
=  weight  of  an  aromatic  fraction  (x  =  m,d,f,  or  p) 

=  total  weight  of  all  chromatography  fractions 
=  weight  percent  of  a  chromatography  fraction  (x  =  a,m,d,f,  or  p) 

ion 


=  The 

( 


he  fraction  of  tgtal  carbgn  in  eac|^  chromatographic  fractic 
’*®‘*  ^total  ^  ^total  *  ^total  ^  ^total  *  ^total  “  ^ 


'total 


The  total  carbon  in  a  given  fraction 

(i.e.,  alkane,  monocyclic,  dicyclic,  phenanthrene,  or  fluorene 
fractions) 

F®  =  The  carbon  aromaticity  for  the  total  sample 

(i.e.,  the  total  aromatic  carbon  divided  by 

total  carbon  Arltotal) 

MWj.  =  molecular  weight  of  a  quaternary  carbon 


MW 


CH 


molecular  weight  of  a  methine  group 


MWch  =  molecular  weight  of  a  methylene  group 
^CH  "  molecular  weight  of  a  methyl  group 
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Table  IV 


Weight  Percent  Data 

for  Model  Mixture  C 

Utilizing 

Methods  1-8^ 

Model  Mixture  C 

WP^ 

WP"’ 

(Method  1) 

90.87 

6.94 

2.19 

(Method  2) 

87.81 

6.94 

2.19 

(Method  3) 

89.88 

7.70 

2.43 

(Known  Values) 

91.02 

6.65 

2.33 

Model  C  was  prepared  by  mixing  13.29  g  of  n-butyl benzene,  18.47  g  of  n- 
pentane,  10.16  g  of  m-xylene,  13.07  g  of  tetralin,  95.70  g  of  n-nonane,  56.20 
of  hexadecane,  200.40  g  of  isooctane,  43.65  g  of  n-hexane,  85.67  g  of 
dodecane,  and  12.80  g  of  napthalene.  The  known  values  above  are  based  on  this 
composition  data.  Also,  the  text  should  be  consulted  for  a  complete 
description  of  Methods  1-3.  In  addition,  it  should  be  noted  that  WP^  and  WP^ 
are  zero  for  this  model  mixture. 

Mixture  3  is  a  poor  choice  for  two  reasons  in  relationship  to  U.  S.  Navy 
fuels:  (1)  Components  are  too  low  M.Wt.  in  several  cases  (particularly 
Cg  and  i-Cg)  and  volatiles  are  easily  lost;  (2)  i-Cg  is  not  representative  - 
the  amount  of  quarternary  carbons  would  never  be  this  high. 
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represents  .Sml  elution  volume 


LC-NMR  Profile  of  Fuel  85"06,  1^  Doped 
Monocyclic  Aromatic  Files 

Each  of  Files  13~27  represents  1  ml  elution  volume 


of  Fuel  85-06,  ]z  Doped 
orene  Files 
represents  2ml  elution 


rep 


LC-NMR  Profile  of  Fuel  85“06 
Fluorene  Fi les 

Each  of  Files  28-45  represents  2ml  elution  volume 


LC-NMR  Profile  of  Fuel  85"06 
Phenanthrene  Files 

Eac  of  Files  28 -45  represents  2nil  elution  volume 


■  Limits  for  Detection 
'ciic  Aromatics  (Fluorene) 
he  LC-*H  NMR  Approach 


Expansion  of  Figure 
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This  is  the  LC-NMR  procratc  revised  1984 
REM  This  is  essentially  the  original  LCNMR  prograit.  It  has  been  modified 
REM  tc  handle  putting  the  data  into  and  out  of  a  disk  file  It  also 

REM  prints  out  the  vJt  'A's  for  2  different  methods  of  calcualtion. 

REM 

REM 

REM 

rEM  The  first  section  is  a  general  input  section  to  get  the 

rEM  softkeys  defined  and  determine  how  you  wish  to  enter  the 

REM  data  It  also  gets  the  file  name 

REM 
CL£ 

GO3'JE6  510  'Setsupblanksforsubtrn 

TEirr  (  2  5  ,  2  2  5  ,  "  P  1  e  a  se  press  the  first  s  :■  f  t  V.  e  y  to  t  e  g  i  n  ”  ,  2  ) 

IlIFUT  "",A5  .  LOCATE  0,0  FRIMT  SPACCOMO'  CLS 

IF  A5^"EDIT"  THEM  GOSUB  6420  ELSE  GOSUB  6170 

LOCATE  1 2  ,  1 4  :  PR  I  NT"  Do  you  v.^ish  to  use  the  parameters  stored  in  a  file  <F>, 
PRINT  TAB  (12)"enter  them  manually  <M> .  or  stored  from  manual  entty-<8>  ? 
LOCATE  14,40  :  INPUT  ; PARAMS 

LOCATE  18.17  :  PRINT  "Do  you  wish  to  use  blank  »1  or  *29  <l>/<2>; 

INPUT  BLANK 

LOCATE  12,10  ;  PRINT  SPACES<620) 

OPEN  "•PR"  AS  FILE  •! 

X9s0 

LOCATE  12,25  ;  INPUT  "Please  enter  the  sample  name:  "iN$ 

IF  N$  =  ""  THEN  a  30 

LOCATE  12,20  ;  PRINT  SPACE»(100)i 

IF  PARAM*-"F"  OR  PARAM9  =  "f"  OR  PARAMS=»"S"  OR  PARAM»  =  "s"  THEN  COSUB  5800 
D$=DATE$ 

TEXT  (0,450,N»,2)  :  TEXT  <620,450,05,2) 

REM 

REM 

REM  The  first  section  gets  the  Monocyclic  inputs. 

REM 

REM 

LOCATE  3,4 

PRINT  "THE  FOLLOWING  INPUTS  ARE  FROM  THE  MONOCYCLIC  AROMATIC 
PRINT  "CHROMATOGRAPHIC  PEAK" 

ASD>1  I  Screen  number  for  editing 

RECNUM>1 

IF  PARAM5  =  "F"  OR  PAHAM$=i"f"  THEN  COSUB  5910 
COSUB  3570 

IF  PARAMS^'F"  OR  PARAMS-" f"  OR  PARAMS="S"  OR  PARAMS="s"  THEN  COSUB  5980 
COSUB  6660  1  Subrtn  to  sub  out  blank 

REM  Will  calculate  volume  from  •  of  scans 

REM  To  change  the  variables  in  the  calculation,  edit  the  following  line 

FLOVRATE=l  02  SCANTI.ME=2  912  ;  CONVEFvTr  6  0  0  0  0 

V= ( V*SCANTIME*FLOWRATE ) /CONVERT 

RZ=R\Ml  =  A\M2rA3\M3=A2\M4-Al\M5=T\V2r-V\M6  =  G 

R  =  0  A  =  0  :  A3  =  0  ■  A2  =  0  A1=0  T=0  V-.O  •  C^O 

REM 

REM 

REM  This  is  the  section  to  get  the  Napthelene  data. 

REM 

REM 

COGUE  6080  I  Sub  to  clear  'tween  inputs 

LOCATE  3,8  .  PRINT  "THE  FOLLOWING  INPUTS  ARE  FROM  THE 

PRINT  "NAPTHALENE  CHROMATOGRAPHIC  PEAK" 

RECNUM^3 


•  -w*  r..  \ 


THEM  GOSUB  *910 


570  IF  FARAKir-r’ 
r>,  8  0  GOSUB  3  5  70 

^85  IF  FARAMi^'T"  OR  PARAM5  =  "f  OR  rARAKS  =  -£"  OR  FARAf15  =  "s"  THEM  COSUE  5  9  8  0 
590CO3UB6750  'Subrtntosubcutbiank 

..-400  <  V*SCANTIKE*rLGVRATE  )  /CONVERT 

rtaO  R3=R\N1-^A\M2=A3\M3^A2\M<1=.A1\NS^T\V3=V\M4-G 
*425  R=0  :  A  O  A3r0  A2=.-C  A1=0  T  =  0  V=0  G=-.0 

^630  REM 
;-;-S<10  REM 
•■■5  5  0  REM 
640  REM 
JP470  REM 


Th is  is  the  section  to  get  the  Flourene  da*a 


'^80  GOSUB  608  0 
690  LOCATE  3,12 


PRINT  "THE  FOLLOVIMG 


,,7  00  PRINT  "INPUTS  ARE  FROM  THE  FLUOREME  CHROMATOGRAPHIC  PEA:'!" 
i;-'7  10  RECNUM-.5 

('■■72  0  IF  PARAMfrr"F"  OR  PARAM5-,."f"  THEN  GOSUB  59  10 
730  COSUB  3570 

.^733  IP  PARAMS-'*F"  OR  PARAMS*"*"  OR  PARAM$  =  "3“  OR  PARAMS  =  "s"  THEN  COSUB  5980 
•V74O  COSUB  6730  t  Subrtn  to  sub  out  blank 

730  V-(V*SCANTIME*FLaWRATE) /CONVERT 
•  770  R6«R\ J1«A\ J23A3 \ ja«A2 \ J4aAl \ J3>T\V4aV\ J6«C 
/.•775  R=0  :  A.r0  :  A3=.0  :  A2  =  0  ;  A1=0  :  T=0  :  V-0  :  C-0 

*■•7  80  REM 
790  REM 

'[900  REM  This  is  the  section  to  get  the  Phenanthrene  input. 

'  SIO  REM 
B20  REM 
830  COSUB  6080 

Jij840  LOCATE  3,32  :  PRINT  "PHENANTHRENE  INPUT" 

830  RECNUM-7  ;  IF  PARAM«a"F"  OR  PARAM»-"f"  THEN  COSUB. 5910 
.  860  COSUB  3370 

■>!865  IF  PARAM93="F"  OR  PARAMS*"f"  OR  PARAM$  =  "S"  OR  PARAM**"#"  THEN  COSUB  5980 
(■'-670  COSUB  6750  >  Subrtn  to  sub  out  blank 

880  V- (VeSC ANT IME* FLOWRATE ) /CONVERT 
I  900  RR3=R\NN1=A\NN2  =  A3\NN3  =  A2\NN4«A1 \NN5=T\VV3=V\NN6-C 
I  905  R-0  :  At=0  ;  A3-0  :  A2  =  0  :  A1»0  :  T=0  :  V«0  .  C=0 

910  REM 
920  REM 

'  930  REM  This  is  the  section  to  get  the  Cone  of  HMDS  and  the  C-13 

-  940  REM  aromaticity.  Will  also  edit  screens  for  inputs. 

930  REM 
.  960  REM 

970  LOCATE  3,2  ;  PRINT  SPACE«<1670) 

980  LOCATE  11,15  PRINT  "Molar  Concentration  of  HMDS:  " 

990  LOCATE  13,15  PRINT  "  C-13  Aromaticity  " 

1000  ASD-2  '  Screen  2  for  editing 

1010  IF  FARAMC'^'T"  OR  PAFAM5  =  "f"  THEN  1070 
1  020  LOCATE  11,45  :  INPUT  "",M  ■» 

1030  LOCATE  13,45  :  INPUT  "",F1 

i"'  1  0  40  GOSUB  38  40 

^  1  0  5  0  IF  FARAMfr  'S"  OR  PARAM!‘  =  "s"  THEN  1110 

1  0  60  GOTO  1170 

!*•  1070  CET  #2,  RECORD  9  :  M=CVTSF<N1S»  F 1  :r  CVTO  F  ( N2  <  > 

I  1080  LOCATE  11,45  :  PRINT  M,  , 

1  09  0  LOCATE  13,45  :  PRINT  FI, 

v'  1100  COSUB  38  4  0* 

j'  1110  LSET  N15aCVTFS<M)  :  LSET  N2  5  =  C  VTF  6  ( F 1  )  PUT  *2,  RECORD  9 
I.  1120  REM 
1130  REM 


I 


*  •  m  ' 

iA'.-: 
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■  V-  ' 
■:<■••> 


JL 


•V 


r 


1140 

REM 

,-l  5  0 

REM 

'i;!  6  0 

REM 

1170 

K2  = 

.'.18  0 

K3=:l 

Bl?0 

K4  = 

V2C0 

K5  = 

12  10 

52  = 

.^2  2  0 

53-= 

2  3  0 

S4  = 

1240 

55  = 

^250 

D2  = 

"260 

D3  = 

'12  70 

D4  = 

12  8  0 

DD3 

2  90 

Z2-. 

:  30  0 

Pl  = 

13  10 

P2  = 

rnazo 

P3- 

3  3  0 

13  = 

1340 

11- 

-i  350 

05- 

\  -l  3  6  0 

Q4-1 

^365 

IF 

I  1370 

PS- 

■>13  80 

P4- 

‘•'.2  3  7  0 

P6- 

2400 

01- 

.1410 

Q2- 

|jll420 

Q3- 

■|]430 

Q6- 

1440 

16- 

^  1450 

15- 

1440 

14- 

1470 

P7- 

Kl  480 

P8- 

"l490 

V2- 

1  500 

V2- 

1510 

Z3- 

^ .  1520 

Tl- 

>1530 

T2- 

1540 

T3- 

L  155  0 

T4- 

1560 

X3  = 

1570 

Xl  = 

.  1580 

X  6  — 

159  0 

X5  = 

■■  16  00 

X4  = 

1610 

U6:- 

f:  1620 

U5- 

Iv  14  25 

I  r 

^  16  30 

Ul  = 

*'  16  40 

U2  = 

16  50 

U3  = 

1  1660 

U4r 

1.  1670 

T5  = 

1680 

T6  = 

j'  16  9  0 

V3>- 

]  1700 

V3  = 

h  1710 

Z4r 

This  is  the  section  to  do  nost  of  the  calcula' 


M*V2* I  8 /R2 


'M2 / 3+M3 / 2+M4  +M5 / 2 )  / 


(Ml +M2 ( 3+M3 / 2  +M4 ♦MS / 2 ) 
(Nl ♦N2 / 3+N3 / 2^N4+N5 / 2 ) 


6*S2 
8  »S3 
8*24 
.  i  0  *  S  S 


K2*  <M2/ 3 ) \ X2aK2*  <M3  f 2 ) 
K2*M4 

D2-M2/ < 3*22) -MS / <2*22 ) 
M«/ (2*22)-l . S*QS 
Q4<=0  THEN  04^0 
K2*Z2«QS 
K2*Z2«Q4 


P3/ <Z2»K2 ) 
Pi/  (Z2*X2> 


P7  +  P3-fP4  +  PS  +  P6 


<T1+T2 ) /A 
T2 

K3*N2/3\X2> 


.K3»N3  /  2 


XI  /  (Z3*K3  ) 

D3-N2 / ( 3*Z3  ) 
N4/(2*Z3)-1  5*U6 
U5<  --0  THEN  U5  =  0 


011*<l0+t/4^U5  +  X4  +  X5  +  X4) 


ions 


1720  L1»K4*J1 

1^1730  L2*K4» ( J2 / 3f J3 / 2* J4 ) 

•Si  7  40  L3*  (  LI  +  L7.  >  /  2 
'"'^•1750  L4:^(Ll+L2)/8 

1760  H3^K4» J2 / 3 VH2=K4* J3 / 2 
jgl7  70  H1=-K4*J4 
Pi  780  H6=H3  /  (  Z4*K4  ) 

I  1  790  H5=^H2/ (Z4*K4) 

!^-  1800  H4:=H1/(Z4*K4)\U8  =  D4-J2/(3*Z4) 

;-:  i810  U7  =  J6  /  <  2»Z4  >  -  I  .  5*H5 
18  15  IF  U7<=0  THEN  U7  =  0 
1820  H7=^L1  /  (  Z4*K4  ) \H8^L2  /  (Z4*K4  ) 
fil830  H9=L3/<24*K4)\R7=L4/(Z4*K4) 

V1840  R8=K4*Z4*U7\R9-K4*Z4*U8\RR7rK4*Z4*R7 

1350  W4Tl3*H7  +  24*He  +  12*H?  +  14«R7+'’J2  +  J3  +  J4)/Z4  +  14»U7+!5*U8 
>^1860  W4=W4+.011*< 13+U8+U7+R6+R5+R4) 

->  18  70  ZZ3=(NNl+NNZ/3>NN3I2-vNN4>  /  10 

1  880  TTI=K5>*NN1 

^  1890  TT2-KS*(NN2/3-»NN3/24^NN4  > 

1900  TT3*(TT1*TT2 ) /2 . 5 

1910  XX3>KS*NN2/3\XX2-KS*NN3/ 2 

1920  XX1-KS*NN4 

1930  XX6-XX3/ (ZZ3*KS  ) 

1940  XXS-XX2/ (ZZ3«KS  ) 

1950  XX4-XX1 / (ZZ3*KS ) 

1960  UU6-OD3-NN2/ (3*ZZ3) 

:  1970  Ui;S-NN6/(2*ZZ3)>l  .S*UU6 
1975  ir  UUS<«0  THEN  UUS-0 
1980  UUl-TTl / <ZZ3*K5 ) 

^  1990  UU2-TT2/ < ZZ3»K3 ) \UU3«TT3/ ( ZZ3*K5 ) \UU4-TT4 / ( ZZ3»K5  ) 

I  2000  TT5-K5*ZZ3*UU5\TT6-K5«ZZ3*UU6 

2010  W3-13«VUl4-24«UUX<»-12*UU34'(NN2  4>NN3>NN4>  /ZZ3-f  14*UU5-«>15«UU6 
.  2020  VV3»WV3-»  .  001 1*  (  14-«-UU6-«.UU5<i-XX64^XX5*XX4  ) 

V  20  3  0  T7=T1.*-T2+T3 
2040  T8-T7-fT4*T5^T4 
.  2050  TT7=TT1+TT2+TT3 
H  2060  TT8-TT7>TT4*TT5+TT6 
2070  V6sLl*L2«L3 
2080  V7^Ll-fL2-^L3-^R8*R94-L2^L4 
2090  W8r^Fl*V6/<P7  +  T7+W6+TT7) 

2100  W9=V8*W7/W6 

2110  F2=F1*P7/1P7+T7+W6+TT7) 

2120  r3=Fl*T7/ <P7-fT7-fW6+TT7) 

2130  rF3  =  ri*TT7/ <P74.T7+W6t-TT7) 

2140  FF5=FF3*TT8 /TT7 
2150  F4=F2*P8/P7 
2160  F5^F3*T8/T7 
-v  2170  F6r  l-F4-r5-V9-FF5 

2180  A8-=F^  *  <  P8+T8+V74.TT8  )  /  (  1 -F6  ) 

>;  2  190  REM 

2  200  REM 

2210  REM  This  is  the  section  to  start  the  printout 

..  2  2  20  REM 
V!  22  3  0  REM 

22  40  PRINT  81  ,  ••••••••••••••••••«****«**»**«***»»****»********»*»**«i*»********»* 

2250  PRINT  ti,  ••*•••********•*******••»*••**•»»•••*»•«•*******•*»«»•••***•»»**•» 
>;•  22  6  0  PRINT  81  ,  "••••****»*****«***lC-NMR  aNAL  YS  I  S*  »•••*•*»***•••***•»•*»•***»••  * 

V  2270  PRINT  81 , "****^«*«*******REPORT  OF  FUEL  SAMPL E •*••**•*****•***»»*»**•*»*» * 
2  2  8  0  PR  1  NT  81  ,"***************•"  ,M$  ,••**#•****»****»**»*»*♦♦»»" 

2290  PRINT  81  ,  ■•»******T  E.  GLASS,  H.  C  DORN,  AND  K.A  c  ASWEL  L  *****»*••****  ^  * » 


.300 

2\l  0 

2;S2  0 

2  3' 3  0 
2.3  4  0 
2||)S0 
2%i  0 
2  370 
2,-N8  0 
2N;9  0 
24  0  0 
2^10 
2P2O 

Z\  3  0 
2  4  4  0 
2>  .5  0 

1  6  0 
247  0 
M«0 

%■:  f  0 

Zooo 

2S10 
i;20 
30 
2340 
J-'SO 
iy'. « 0 
2370 
2.380 
^?0 
flloo 

3810 

:-.i2  0 
7.  -  .  3  0 
2640 
^30 
960 
•  6  7  0 
2680 
is  7  0 

;>oo 

2703 
[7  10 
720 
27  3  0 

2  740 
750 

-.7  4  0 
2  7  70 
v7  8  0 
^7  9  0 
2  300 


PRINT  #i  ,•■***»•»  *****V.  P  I  DEFT. 
PRINT  #1,  •■****•*••»****  *  BLACKSBURG  . 
LOCATE  3,2  :  PRINT  SP ACE  5  (  1  6  7 0  >  , 

LOCATE  11,18 

PRINT  "Do  you  wish  to  skip  the  lull 
PRINT  # 1 ,  DS 


OF  CHEM I STRY*  »**»******»***s***»*»***i 
VIRCINIA*****************************' 


PRINT  "Do  you  wish  to  skip  the  lull  printout?  (Y/N)  \  INPUT  " "  ; AS  5 

PRINT  # 1 ,  DS 
PRINT  *  1 ,  "  " 

PRINT  # 1  ,  "  " 

PRINT  il  ,  "*»********'******MONOCYCLIC  PEAK  DATA*  *»*****•»**************•*'►  ' 

0l==Ql\02=Q2\03=Q3\04=Q4\05=Q5\06=Q6' 07  =W2  \  0B  =  S2\09-D2 
Yl=Fl\Y2=P2\Y3=P3\Y4=P4\Y5=P5\Y6=P6\Y7=P7\Y8=P8\Y9=0 
El-r2\E2  =  F4\Y»0VCl  =  IlVC2  =  I2\C3=I3\C4  =  I4\C5  =  I5\C6=:I6 
COSUB  3910 
PRINT  #1  ,  " 

PRINT  #1 , "  " 

PRINT  # 1 ,"******•****** *NAPTHAL ENE S  PEAK  D AT A **************************** ' 

Ol=Ul\O2=U2\Y9=U3\O3=U4\O4=U5\O5=U6\O6=0\Yl=Tl \ Y2=T2 

Y=T3  \  Y3=T4\Y4=T5  \Y5=T6  \  Y6  =  0  \07=W3  \08:rS3  \09  =  D3  \  Y7mT7 

YB«T8\E1>F3\E2-FS\C1«Z1\C2-Z2  VC3-K3  VC4«Z4  VC3>ZS  VC6-X6 

COSUB  3«t8 

PRINT  #1  , 

PRINT  #1,"  •• 

PRINT  *1  ,  ••»********»*****FLU0RENE  PEAK  DATA* *•»•*••'•*******•****•********  1 

01 «H7 \02»H8 \Y7=H9 \03-R7 \04=U7 \03«U8 \06=R7 \Yl«Ll \Y2*L2 
Y-L3\Y3-L4\Y4-R8\Y3«R9\Y6-RR7\07-V4\08>S4\09>>D4\Y7-V6 
Y8-V7 \E1>V8 \E2-V9 \C1-H1 \C2>H2 \C3-H3 \C4=H4\CS»HS\C6-H6 
COSUB  3910 

PRINT  81  ,  "***************»»*PHENANTHRENE  PEAK  DATA* »****•**»**»*•*•  •• 

01-VUt  \02>iUU2  \  y9«UU3\03«UU4  \  04-UUS  \  O3-UU6\O6»0\yi>TTl  \y2>TT2 
Y«TT3\Y3«TT4\Y4»TT3\Y5-TT4\Y6-0\O7-W3\O8  =  S5\O9=DD3\y7»TT7 
Y8-TT8\El*FF3\E2=.Fr3\Cl-XXl\C2*XX2\C3.XX3\C4  =  XX4\C3-XX31C6*XX6 
COSUB  3910 
LOCAT6  12,18 

PRINT  "Do  you  wi»h  *n  iliphotic  «n«ly«is?  <Y7N)  \  INPUT  "";A$ 

IF  A««"M"  OR  A«-"fi"  THEN  3  3  60 

ASO=3  !  Screen  3  for  editing 

REN 

REN 

REN  Thle  t*  the  eectlon  to  get  the  inputs  end  edit  screene. 

REM 

REM 

OUNl-0  ;  DUM2-0 

LOCATE  11,1  ;  PRINT  SPACE«(400) 

LOCATE  6,33  ;  PRINT  "  HMDS  Integral:  " 

LOCATE  8,33  :  PRINT  "  CH3  Integral:  " 

LOCATE  10,35  :  PRINT  "  CH2  Integral:  " 

LOCATE  12,35  PRINT  "  CH  Integral:  " 

LOCATE  14,1:PRINT  "Estimated  quarternary  carbon  relative  to  CH  integral," 
LOCATE  16,35  PRINT  "  Number  of  Scans:  " 

LOCATE  19,8  PRINT  "Do  you  wish  to  assume  linear  alkanes  for", 

PRINT  "  normalization’  (Y/N)  " 


INPUT 


10.35 

12.35 


This  is  the  eectlon  to  get  the  inputs  end  edit  screene 


1  ;  PRINT  SPACE«(400) 

5  ;  PRINT  "  HMDS  Integral:  " 

5  :  PRINT  "  CH3  Integral:  " 

35  :  PRINT  "  CH2  Integral:  " 

3  5  PRINT  "  CH  Integral  : 

1:PRINT  "Estimated  quarternary  carbon  relative  to  Cl 
35  PRINT  "  Number  of  Scans:  " 

8  PRINT  "Do  you  wish  to  assume  linear  alkanes  for' 


PRINT  "  normalization’  (Y/N)  " 

IF  PARAMS:^"?"  OR  PARAM?-"f**  THEN  28  9  0 


’,8  1  0 

LOCATE 

6  , 

60 

INPUT  " 

,  R 

,V8  2  0 

LOCATE 

8  , 

60 

INPUT  •• 

,  A3 

•i8  3  0 

LOCATE 

10 

,  60 

INPUT 

"  i  A2 

2  8  40 

LOCATE 

1  2 

,  60 

INPUT 

"  ;  A1 

V8  5  0 

LOCATE 

1  4 

,60 

INPUT 

"  ,  A4 

>•.8  6  0 

LOCATE 

16 

,  60 

INPUT 

M  .y 

2870 

LOCATE 

19 

,  75 

INPUT 

"  i  L$ 

•*.8  8  0  GOTO  2  9  80 


t 


■  ■  ..  .  I.l  ,1.. 

t 

28  9  0 

GET  92 

,  RECORD 

9  R 

=  CVT$r(N3f)  ;  A3=.CVTS  F  (N4  S  '  :  A2  -  CVTS  F  (  N5  f  > 

3  9  5 

DUMl  --CVTI  F<N1  % 

)  DUM2=CVT$F<N2$ ) 

y  9  00 

GET  92 

,  RECORD 

1  0 

A1=CVTSF<N1  S  )  A4=CVTfr'N25  )  :  V:r  C  VT  C- F  (  N  3  S  ) 

29  10 

LOCATE 

6,60 

PRINT 

R  : 

^920 

LOCATE 

0 

CD 

PRINT 

A3  ; 

«930 

LOCATE 

10,60 

PRINT 

A2  ; 

*£940 

LOCATE 

12,60 

P  R  I  NT 

A1  , 

2'’50 

LOCATE 

14,60 

PRINT 

A4  , 

'I-i  9  6  0 

LOCATE 

16,60  : 

PRINT 

V  ; 

9  7  0 

LOCATE 

19,75 

PRINT 

L  S 

1  298  0 

LOCATE 

23,18  : 

PRINT 

"Press  the  appropriate  softkey  to  continue 

[^990 

INPUT 

,  AS 

L  5  " 


Editing  routine 


^000  IF  A5=-"SCRM''  THEN  30  30 
“3010  IF  AS="EDIT"  THEM  COSUB  5460 
3020  GOTO  2?8Q 

;-.'303  0  IF  FARAM5r="F"OR  F  AR  AM  S  =■  "  f  "  OR  FARAM?=^"S"  OR  F  A  R  AM  0 "  s  "  THEM  30  40  ELSE  3  090 
3040  LSET  N3S=CVTFS(R)  :  LSET  N4 $ = CVTF $ < A3 )  ;  LSET  N5 0 =CVTF5 ( A2 > 

3045  LSET  N1 5 = CVTF J ( DUM 1 )  :  LSET  N2 ? = C VTF S ( DUM2 ) 

[r^aoso  PUT  #2,  RECORD  9 

^3060  LSET  N1 ♦«CVTF» < A1 )  ;  LSET  N2 « -CVTF * < A4 >  ;  LSET  N36»CVTr»(V)  .  LSET  N4$=LS 

3070  LSET  N5I-"  " 

.3080  PUT  #2.  RECORD  10 
3090  V=(V* SCANTIME* FLOWRATE) /CONVERT 
)i-3100  V1-V\LL3«A3\LL2=A2 \LLI»A1  VLL4  =  A4*A1  \LR1=R\K1=M*V1*18/LR1  .  Rl=R 

3110  B3-Kl*LL3/3\B2  3Xl*LL2/2\Bl3Kl«LLl\B43Kl«LL4\B5>:B3-^B2-fBl 
3115  BB5=B5 / {B5+P8*Ta+W7+TT8 ) 

3120  IF  LI<>"Y"  THEN  3150 
3130  NNNl«LL3/< 

3140  GOTO  3160 

3150  NNN1>(LL3-3*LL1 ) /6-A4«LLl 

3140  LX3>B3/ (K1«NNN1 ) \LX2»B2/ (K1«NNN1 ) VLXt >B1 / <K1 *NNN1 >  VLX4-A4*LX 1 
3170  Vl-lS  .<IU*LX3*14 . 01  1«LX24-13 . 011«LXl4-12 . 011*LX4 
3180  IF  ASI«''Y"  GOTO  4250 
3190  PRINT  *1  ,  " 

3200  PRINT  01,  ••  " 

3210.  PRINT  #1,  "»*******«**»»****aLKANE  PEAK  DATA*  •****♦'*'•»•******«'***•****•  •• 

3220  PRINT  01,  " 

32  3  0  PRINT  il  . 

3240  PRINT  01,  "AVERAGE  STRUCTURE  DATA  AND  TOTAL  #  OF  MOLES  OF  EACH  CARBON" 

V  3250  PRINT  #1,  "•»••*•«**«* *tVPE  IN  AN  INJECTI ON* ************************** " 

;■  32  6  0  PRINT  #1  ,  "  " 

I  3270  IF  L»<>  "Y"  THEN  3290 

L-  3280  PRINT  •!,  "******«*** L INEAR  ALKANE  ASSUMPTI ON* ************************ " 

"CARBON  TYPE" , "AVERAGE  0","ABS  MOLES" 


I 

1 


3290  PRINT  •! 

3300  PRINT  »1 
3310  FRIKT  *1 
3320  PRINT  #1 
3330  FRIKT  #1 
3  3  4C  PRiriT  *1 
335  0  LX5- LX  1 +2 *LX4 
3360  PRINT  « 1 ,  "  ” 

3370  FRIKT  #1 
3380  PRINT  «1 
3390  PRINT  #1 


"»CH3  "  , 
"  4CH2  "  , 
"#CH"  , 


PRINT  #l  USING  "*#*.#* 
PRINT  *1  USING  "###  «» 
PRINT  41  USING 


QUATERNARY' 


PRINT  #1  USING  "##9  9* 


«###  ##  ••;LX3;B3 
#9«(i  1  LX2  ;  B2 

«##tt99"iLXl,Bl 

999999", LX4 , B4 


'AVERAGE  MOLECULAR  VEICHT=^  FRIKT  91  USING  "99999  999", VI 

■AVERAGE  DEGREE  OF  BRANCHING-  ",  PRINT  91  USING  " 999 99 . 999  "  ;  LX5 
'TOTAL  9MOLES  OF  CARBON  IN  THIS  FILEtMETHOD  1  >  r. 

PRINT  91  USING  "999999  999" ;AB 

PRINT  91,  "TOTAL  9MOLnS  OF  CARBON  IN  THIS  FILE(METHOD  2)=  ", 

USING  "999999  999", B5 

"FRACTION  OF  TOTAL  CARBON  IN  THIS  LS  FEAK(METHOD  I  ) -= 

PRINT  91  USING  "999999 . 999" ; F6 
E6-E5-*.T8«-F8\B7-E5/E6\B8r-.P8/B6\B?=T8/B6 


34  00 
34  10 
3420  PRINT  #1 
3430  PRINT  91 
3  4  40 
345  0 


f 

34<0  PRINT  «1,  "FRACTION  OF  TOTAL  CARBON  BY  METHOD  2  ",BB5 

3  4^/0  PRINT  #1,  "  " 

3  4^-'0  PRINT  #1,  ••  •• 

34V0  PRINT  «1,  "ALKANE  PEAK",,  :  PRINT  #1  USING  B7 

25C0  PRINT  #2,  "MONOCYCLIC  PEAK",  PRINT  #1  USING  "  *  *  *  ;  B  8 

35jio  PRINT  *1,  "NAPTHALENES  PEAK",;  PRINT  #1  2)£1NG  *###*"  iE9 

13SM0  PRINT  *1,  "FLUORENE  PEAK",  PRINT  *1  USING  "««  ;FF1 

135  3  0  LOCATE  3,2  PRINT  SFACEJ<W70> 

i35*:0  LOCATE  11,15  PRINT  "Do  you  wish  to  redo  the  Blk^nes’  (Y/N)  " 

j3  5;-;0  INPUT  "",Qt  IF  Q5  =  "Y"  OR  Qtr  "y"  THEN  2710 
35i0  GOTO  4250 
35^0  REM  INPUT  SUBROUTINE 


3  Jlo 

LOCATE 

6  , 

1  5  : 

PRINT 

*1 

HMDS 

Integra] 

!  3  5  ;■  0 

LOCATE 

8  , 

1  5  : 

PRINT 

1 1 

A  r  oslb  tic 

Integral ; 

13600 

LOCATE 

1  0 

,  1  5 

PRINT 

AlphB  CH3 

Integral 

!  36  -'.  0 

LOCATE 

1  2 

,  15 

PRINT 

1 1 

Alpha  CH2 

Integral 

■  3  t  ■  0 

LOCATE 

1  4 

.  15 

PRINT 

II 

Alpha  CH 

Integral  ; 

1  3630 

LOCATE 

16 

,  15 

PRINT 

"  Alphs 

Te  t  r  a  1 i n 

Integral  ; 

|34#0 

LOCATE 

18 

.  15 

PRINT 

"Crss  tar 

Than  Alpha 

Integra  1  : 

;  -3  t  'y  0 

LOCATE 

20 

.13 

PRINT 

“Nuab  e  r 

0  t 

Scans  for 

this  fils 

•  3(ro0  IF  PARAM$«"F"  OR  FARAM<>"f"  THEN  3  7  40  t  If  using  fils  ^ust  print 


>3670 

LOCATE 

6. 

45 

INPUT 

.....  u 

I  3  4  jO 

LOCATE 

8  , 

45 

INPUT 

"  "  ;  A 

3cio 

LOCATE 

10,45 

INPUT 

""  ;  A3 

1  3700 

LOCATE 

12 

.45 

INPUT 

"  "  ;  A2 

3  7*0 

LOCATE 

14 

.45 

INPUT 

"  "  ;  A 1 

;  3 '.,10 

LOCATE 

16 

.  45 

INPUT 

"  "  ;T 

k  37  3  0 

LOCATE 

18 

.  45 

INPUT 

.....  G 

!  3740 

LOCATE 

20 

,45 

INPUT 

.....  V 

GOTO  3840 

1  3M0 

LOCATE 

i  . 

45 

PRINT 

R; 

3770 
3V3  0 

iOCATS 

«. 

<45 

PRINT 

Ai 

LOCATE 

10 

,45 

PRINT 

A3: 

3V->0 

LOCATE 

12 

.45 

PRINT 

A2  : 

38'00 

LOCATE 

14 

,45 

PRINT 

Al  : 

1  3M0 

LOCATE 

16 

.  45 

PRINT 

T; 

1  3»0 

LOCATE 

18 

.45 

PRINT 

G  ; 

3630 

LOCATE 

20 

.45 

PRINT 

V; 

'  3040  LOCATE  S3, 18  PRINT  "Prsss  ths  spproprists  softksy  to  continue 
^  3  '-SO  INPUT  ""  ;  A$ 

Si-iO  IF  At*"8CRN"  THEN  RETURN 

3870  IF  A$-"ED1T"  THEN  3870  !  Editing  routine 

I  3|*3  0  GOTO  3840 

3,  70  ON  ASD  GOSUB  50  2  0,  52  70,  54  6  0 

3700  GOTO  3840 

3710  REM  OUTPUT  SUBROUTINE 

3'>.20  ir  AE«="Y"  THEN  RETURN 

3V-3  0  PRINT  SI,  "  " 

3740  PRINT  SI,  "  " 

3.--50  PRINT  SI,  "AVERAGE  STRUCTURE  DATA  AND  TOTAL  S  OF  MOLES  OF  EACH  CAREON" 


3-:.;6  0 

PRINT 

S  1 

" 

TYPE 

IN  AN 

INJECTION 

tl 

3770 

PRII.'T 

s  1 

II  M 

3  r-.8  0 

PRINT 

S  1 

"CAREON  TYPE" , 

"AVERAGE 

S"  "ACSOLUTF  MOLTS" 

i‘;7  0 

PRINT 

s  1 

II  II 

4^0  0  0 

PRINT 

S  1 

"UNSUESTITUTED" , 

: PRINT 

SI 

USING 

"SS 

sssss 

s 

•  sssss  " 

;01  ,  Yl 

4.0  !  0 

PRINT 

S  1 

"SUBSTITUTED"  , 

PRINT 

s  1 

USING 

'•  SS 

SS  S  SS 

s 

.  SS  SSSS  ” 

, 02 , y: 

4  "20 

IF  >7) 

=  1 

THEN  4040 

4\-  3  0 

PRINT 

s  1 

"ERIDCEKEAD" , 

PRINT 

s  1 

USING 

"  s  s 

sssss 

s 

SS  SSSS  " 

,Y7  ,  Y 

4040 

PRINT 

•  1 

"ATPHA  CH:”, 

PRINT 

s  2 

USING 

"SS 

sssss 

s 

SSSSSS" 

, C6 , 03 

0 

PRINT 

s  1 

"ALFHA  CH2", 

PRINT 

•= ; 

USING 

•'  s  * 

sssss 

s 

S  SS  SSS  '■ 

, C5 . C2 

4  0  6  0 

PRINT 

«  2' 

,  ••  ALPHA 

CH", 

PRINT 

41 

USING 

"44 

.44444 

4. 444444 ",C4, Cl 

4  0CvO 

PRINT 

«  1  , 

,  "CK2  > 

ALPHA"  , 

PRINT 

4  1 

USING 

"44 

44444 

4  ,  444444  "  , 04 , y4 

4  O-l'O 

PRINT 

*  1 

,  "CHS  > 

ALPHA"  , 

PRINT 

4  1 

USING 

"44 

44444 

4.444444",05,Y5 

4  0^9  0 

IF  X9  = 

2  THEN  4110 

4iro 

■  ^ 

PRINT 

*  1  , 

,  "ALPHA 

TET"  , 

PRINT 

4  1 

US  INC 

"4  4 

44444 

4  444444  "  ,  Oc.  ,  Y6 

4 : 

FT  INT 

#  1 

II  I  • 

4  1  2  C 

FRIHT 

*!  1  , 

,  "AVERAGE  KOLECULAR  WEIGH' 

PRINT  41  USING 

"44444  444" ,07 

4 

r\IO 

PRINT 

#  1 

,  "PR ACT  I 

ON  OF  SUBSTITUTED 

SITES-- 

II  . 

t 

PRINT  41 

USING  "44444  444" ,09 

4 

uc 

PRINT 

*  1 

,  "AVERAGE  DEGREE 

OF  SUBSTITUTION 

.  II 

4 

1  50 

PRINT 

«  1 

USING  " 

«««««  ««« 

"  ;  09 

4 

PRINT 

«  1 

,  "TDTAI 

4  MOLES 

OF  AROMATIC  CARBON 

IN  THIS 

FILE- 

/ 

4! 

^0 

PRINT 

»  1 

USING  ” 

4  4444444 

"  ;  Y7 

4  IfiO 

PRINT 

»  1 

.  "TOTAL 

4  MOLES 

OF  CARBON 

(  AROMATIC 

4  ALKYL 

^  IN 

THIS  FI  LEr-  ", 

4  1  9C 

PRINT 

#  1 

USING  " 

4  4444444 

"  ;  YS 

FniNT  #1 


‘FRACTIONAL  AROMATICITy= 


4  ^'1  0 

PRINT 

#1 

USING  "444##, 444" 

,  El 

42  2  0 

PRINT 

«  1 

,  "FRACTION  OF  TOTAL  CARBON 

IN  THIS 

LC 

PEAK:-  ”  ; 

4*00 

PRINT 

«1 

E2 

4  •‘40 

RETURN 

42S0 

PRINT 

•  1 

4  26  0 

PRINT 

•  1 

4 '-TO 

PRINT 

«  1 

,  "MONOCYCLIC  INPUT  DATA" 

4^8  0 

PRINT 

#1 

,  "HMDS  INTEGRAL", 

PRINT 

4  1 

USING 

"4  4  4 

. 4444" ; R2 

4  290 

PRINT 

41 

,  "AROMATIC  INT" , 

PRINT 

41 

USING 

“444 

4444 ” ,M1 

4.:.0  0 

PRINT 

«  1 

,  "ALPHA  CH3  INT". 

PRINT 

41 

USING 

"4  44 

4444  ", M2 

4*-:  1  0 

PRINT 

41 

,  "ALPHA  CH2  INT", 

PRINT 

4  1 

USING 

"444 

4444 "; M3 

43  2  0 

PRINT 

4  1 

,  "ALPHA  CH  INT", 

PRINT 

41 

USING 

"444 

#444 " ;M4 

4  ?  3  0 

PR  1  NT 

41 

,  "ALPHA  TET  INT", 

PRINT 

41 

US  I NC 

"4  44 

4444 " ;M5 

^40 

PRINT 

41 

,  ">  ALPHA  INT", 

PRINT 

41 

USING 

"44# 

4444" iM6 

^50 

PRINT 

•  1 

,  "VOL  OF  FILE", 

PRINT 

41 

USING 

"4  44 

,  #4444" ; V2 

4340 

PRINT  \ PRINT  #1  . 

'v70 

PRINT 

.♦1 

,  "NAPHTHALENE  DAT! 

^  INPUT 

4 

<>'8  0 

PRINT 

41 

,  "HKDS  INTEGRAL", 

PRINT 

41 

USING 

"444 

4444" iR3 

4390 

PRINT 

41 

,  "AROMATIC  INT", 

PRINT 

41 

USING 

"444 

#•44" ;N1 

^00 

PRINT 

41 

,  "ALPHA  CH3  INT", 

PRINT 

41 

USING 

"4  44 

4444" ;N2 

PRINT 

41 

,  "ALPHA  CH2  INT" , 

PRINT 

it 

USING 

"444 

4444" ;N3 

4'4  2  0 

fRlNT 

41 

,  *ALFHA  CH  INT", 

PRINT 

f  1 

USING 

"444 

•••4" ;N4 

4.4  3  0 

PRINT 

41 

,  "ALPHA  TET  INT" , 

PRINT 

41 

USING 

"444 

.  •••#" iN5 

-■^-l  4  0 

PRINT 

41 

,  ">  ALPHA  INT", 

PRINT 

41 

USING 

"44  4 

4444" iN6 

V'4  5  0 

PRINT 

41 

,  "VOL  OF  FILE", 

PRINT 

4  1 

USING 

"4  44 

. 44444" , V3 

44  6  0 

PRINT 

41\PRINT  41 

LJ70 

PRINT 

4  1 

,  "FLUORENE  DATA  INPUT" 

..580 

PRINT 

4  1 

,  "HMDS  INTEGRAL", 

PRINT 

41 

USING 

"444 

4444 " , R4 

4  4  90 

PRINT 

•  ! 

,  "AROMATIC  INT", 

PRINT 

4  1 

USING 

"  44  II 

4  4  4  4  ",  or  1 

.’EOC 

PR  I ’IT 

n  1 

,  "ALPHA  CH3  INT", 

PRINT 

4  1 

USING 

"•44 

4444 " . J2 

-;;5  ;  0 

PR  I ’IT 

I* : 

,  "ALPHA  CH2  INT", 

PE  INT 

4  1 

USING 

"  4  «  4 

#  •  1  «  "  ,  J  ? 

4  5  2  0 

FR  ir:T 

*  1 

,  "ALPHA  CH  INT", 

PRINT 

4 ; 

USING 

"444 

#  1  #  1  ^ 

5  ,5  2  C 

PF  :•  T 

4  1 

,  "ALPHA  TET  I  NT " , 

PRINT 

4  1 

USING 

"444 

li  *  n  a  "  ,  j  ^ 

;';5  4  C 

FRI  '-T 

4 1 

,  ">  ALPHA  INT", 

PRINT 

4  I 

USING 

"4  4  4 

4  41*  4  ",  J  6 

•'.’■5  5  0 

PR1*.'T 

*  1 

,  "VOT  PF  FILE", 

PR  INT 

4  1 

US  INC 

’■444 

|i  a  a  a  a  "  v« 

45  6  0 

FRIHT 

4 

\ FRI NT  41 

••5  70 

PRINT 

4  1 

"PHFNANTHRENE  DATA  INPUT" 

.i'5  8  C 

FRIHT 

4  1 

.  "HMDS  INTFGKAL", 

PRINT 

4  1 

USING 

••444 

41  a  a " , RR  : 

4  5  90 

PRINT 

4  1 

,  "AFCMATTC  INT", 

PRINT 

41 

USING 

"44  4 

44  at"  ,NN1 

/.6  0  0 

FR  I  NT 

4  1 

,  "ALPHA  CH-  IHT" . 

PRINT 

4  1 

US  TNG 

"44  4 

44a* " ,NN2 

•’I  '  I  0 

PRINT 

*  ■ 

"ALPHA  CH7.  IMT"  , 

PRINT 

4  t 

USING 

"444 

4444" ;NN3 

"  ‘1 6 : 0 

FR  I 

•  ; 

"AI  FHA  CH  INT"  , 

PRINT 

4  1 

USING 

"444 

4444" . NLM 

<£70 

PR  I”T 

4  1 

"ArPHA  TE”"  IMT", 

PRINT 

•  1 

US  I  NO 

"  4  4  4 

4444" ,NM5 

£  <  C 

PRINT 

4  ! 

,  ">  ALPH.A  INT", 

PRINT 

4 : 

USING 

"444 

4444"  NNI 

650  PRINT  •!,  "VOL  OF  FILE",  PRINT  «1  USING  *' i  VV3 

C-'O  PRINT  ¥\,  "MOLAR  CONC  OF  HMDS",;  PRINT  •!  USING  "#  *##««»«"  jM 

t':/C  PRINT  #1,  "C-13  AROMATIC  ITY"  ,  PRINT  *1  USING  PI 

iijC  IF  A-:.  "M"  THEN  49  6  0 

690  PRINT  #J\PR1NT  #3 

^0  PRINT  «1,  "ALKANE  INPUT  DATA" 

Do  PRINT  *1,  "HMDS  INTEGRAL",  •  PRINT  #1  USING  <t R 1 

7  2  0  PRINT  "CH2  !NT"  ,  :  PRINT  #1  USING  "*  **:  ***</>*  H  L2 

'-BO  PRINT  *1,  "CH2  INT",  :  PRINT  #1  USING  "#«*  #  #  #  (•  »t  "  ;  L  2 

>;i0  PRINT  r  :  ,  "CH  INT".  :  PRINT  1  USING  "  ♦!  f  #  *1  #  #  ,  L  1 

1750  PRINT  #1,  "EST  QUAF.TERMARY  CARBOt.'  INT  RELATIVE  TO  CH  INT  :  ", 

17  6  0  PRINT  #1  USING  "«#t 

if^O  PRINT  #1,  "VOL  OF  FILE:  ";  :  PRINT  #1  USING  V 1 

l!-l3  0  PRINT  #3,  "LINEAR  ALKANES  ASSUMED  FOR  NORMALIZATION.  ",Lf 

I79C  CHP  3  2  031\CH3-1B  P1179\CH2  =  34  0  2  6  8  \  CH  ? -•  1  5  0  3  4  7 

i:p0  MONO- F: *CHIiF:*CH0+:3*CH3+I2*CH2  +  I1*CH3+P4*CH2  +  F5»  CK3  +  F6  *ck: 

i  ,  1 0  DI =T1 *  CH3  +T2  *  CHO f T3 * CHO  +  X 3 » CHS  +  X 2  * CH2  +  X 1  * CH 1 +T5 * CH2  +T6»CH3 

1820  rL^Ll*CHl  +  L2*CH0  +  L3*'CH0+H3’»CH3+H2*CH2  +  Re*'CH2+R9*CK3  +  RR7*'CH2 

1^0  TH*TT1  *CH1  ♦TT2*CH0*TT3»CHt)  +  XX3*CH3  4-XX2»CH2+TT5’*CH2+TT6»CH3 

110  ALi=-A8*CH2 

1-30  T0TAL.M0N0-fDl4FL  +  PH  +  AL 

1855  ALBB==B1*CH34B2*CH24B3*CH1 

r'  56  TOTAL2=MONO  +  DI  ♦FL  +  PH+ALBB 

»-_^i0  MONOPC  =  MONO/TOTAL*100 

1870  DIPC=DI /TOTAL* 100 

I'BO  TLPC=FL /TOTAL*100 

I'PO  PHPC=PH/TOTAL*lOO 

(TOO  ALPCr AL/TOTAL*100 

1905  ALBBPC*ALBB/TOTAL2*100 

I.  10  PRINT  #1,  "ALKANE  WT  %  =  ";  ;  PRINT  fl  USING  ALPC 

liko  PRINT  «1,  "MONOCYCLIC  WT .  .  " ;  , ;  PRINT  fl  USING  " « • ii 9 * " ; MONOPC 

•  9SI#RtNT  #1  ,  .-•Cl  CYCLIC  WT.  ■%  -  «  }  >6-{^RINT  fl.LUBING  .  #tM#  "  i  D I  PC 

4'40^RINT  •!,  ‘TLUORENE  WT .  %  -  :  PRINT  ft  USING  FLPC 

i;  50  PRINT  #1,  "PHENAN  WT .  %  *  ";  :  PRINT  it  USING  . OiOf " ; PHPC 

8f55  PRINT  #1,  “ALKANE  WT  *  (METHOD  2)=  ;  -PRINT  tl  USING  i  ALBBPC 

4.9  6  0  REM 

4V0  REM  Routine  to  ond  the  pgm  end  sign  off. 

4/8  0  REM 

4990  CLOSE  81  :  CLOSE  *2  :  CLOSE  *5 

5-.'00  TEXT  <  200  ,  1  00  ,  "Heve  e  glorious  deyM*",2) 

5  10  END 
5020  REM 

5730  REM  This  is  the  subroutine  to  edit  the  input  screens 

5‘'4  0  REM 

5050  AS^"" 

5,0  6  0  COLU^-6 

5-  ;70  IF  COLU<6  THEN  COLU- 6 

5;80  IF  COLU>20  THEN  COLU=20 

50 70  LOCATE  COLU , 5 5  INPUT  "",A? 

5“'00  LOCATE  COLU, 55  PRINT  SPACES!  10), 


5,.-l  0 

IF 

A'^  ' 

•NEXT" 

THEl'I 

COLU=COLU+2 

:  GOTO 

5070 

5  12  0 

IF 

At  ^ 

"PREV" 

THEN 

COLU=COLU-2 

GOTO 

5070 

5.1  3  0 

I  F 

a:  -  • 

'SCKN" 

THEN 

RETURN 

5-4  0 

1  F 

A  C 

"CHANGE 

"  THEN  5150  ELSE 

5070 

5*1  50  REM  Section  to  replace  the  number 

5160  LOCATE  COLU, 45  PRINT  SPACESOO), 

5;-.-7  0  LOCATE  COLU,  4  5  INPUT  DUMMY 

5'.-8C  IF  COLU^6  THEM  R  =  DUMMY  GOTO  5070 

5190  IF  COLU. 6  THEM  A=rUMMY  GOTO  5070 

5-‘0  0  IF  COLU-.  10  THEN  A  3.  DUMMY  GOTO  50  7  0 

I  ' 


S2  1  C 

sfoc 
52  40 
5^5  0 
5|C 
5(*0 
52ec 
5  0 
5  >'p  c 

5  3  10 
5^  0 
5®3  0 
5  .-  4  0 
5  35  0 
5  ;;6  0 
s;  '-7  0 
538  0 
SA9  0 
5  'OO 
54  10 
542  0 
5‘  -  3  0 
5^4  0 
5450 
5.-;  6  0 
5;';-7  0 
5*4  8  0 
54  9  0 
^00 
Ml  0 

5520 
30 
40 
5550 

y  60 

•  70 
5580 
5590 
r  0  0 
i « 1  0 
5  620 
30 


ir  C0LU=12  THEM  A2=DUMMY  ;  GO 

IF  COLU-14  THEN  A1 -DUMMY  :  GO 

ir  COLU--16  THEN  T^DUMMY  GO 

IF  COLU-18  THEN  G=DUMMY  :  GO 

IF  COLU=2  0  THEM  Vr. DUMMY  GO 

GOTO  5070 
REM 

REM  This  is  the  subrouti 

REM 
a;  r  ” 
coLUrr  1 : 

IF  COLUMl  THEN  COLUrll 

IF  COLU>13  THEN  COLU= 1 3 

LOCATE  COLU,55  :  INPUT  " " , A ? 
LOCATE  CO:U,55  '  PRINT  EPACr*: 

IF  At ••NEI'T"  THEM  CGLU^  COL  U- 3 
IF  AS^"PREV"  THEN  COLU^COLU-2 
IF  A?="SCRN”  THEN  RETURN 
IF  ASs-CHANCE"  THEN  5400  ELSE 
REM  Section  to  replece  the 


GOTO  5070 
GOTO  5070 
GOTO  5070 
GOTO  5070 
GOTO  5070 


subroutine  tc  edit  the  second  type  cf 


screen 


GOTO  5320 
:  GOTO  5329 

5320 
numbe  r . 


PRINT  SPACE*  <  30  )  i 
INPUT  ••••;  DUMMY 
= DUMMY  .  GOTO  5320 
1=DUMMY  :  GOTO  5320 


the  subroutine  to  edit  the  third  screen. 


LOCATE  COLU,45  :  PRINT  SPACEJOO); 

LOCATE  COLU,4  5  :  INPUT  *•••;  DUMMY 

IF  COLUrll  THEN  M=DUMMY  .  GOTO  5320 
IF  COLU=13  THEN  F1=DUMMY  :  GOTO  5320 
GOTO  5320 
REM 

REM  This  is  the  subroutine  to  edit 

REM 

AS  =  "  '• 

COLU-6  :  RROOWV*70 
IF  COLU<6  THEN  COLU^6 
IF  COLU>l<  THEN  5710 
LOCATE  COLU.RROOW  .  INPUT  "";A$ 

LOCATE  COLU.RROOW  ;  PRINT  SPACE*  (15); 

IF  ASr^‘'NEXT''  THEN  COLU.COLU+2  :  GOTO  55  10 
IF  AS="PREV"  THEN  COLU=COLU-2  :  GOTO  5510 
IF  AS="SCRN"  THEN  RETURN 
IF  A$»"CHANCE"  THEN  5590  ELSE  5510 
REM  Section  to  repltce  the  number 
RROOWV=60 

LOCATE  COLU,RROOW  ;  PRINT  SPACES  (15); 
LOCATE  COLU.RROOVW  .  INPUT  DUMMY 
RROOWr.70 


’  .40 

I  F 

COLU=6  THEN 

R= DUMMY  : 

GOTO 

55  10 

56  5  0 

I  F 

COLU=8  THEN 

A3 = DUMMY 

GOTO 

55  10 

*<60 

I  F 

COLU=10  THEN 

A  2=-.  DUMMY 

GOTO 

55  10 

-  7  0 

I  F 

COLUri:  THEN 

A  1  ^ DUMMY 

GOTO 

5  5  10 

;  6  8  C 

I  F 

COLU:.  14  THEM 

A4^DUMMY 

GOTO 

55  10 

5  6  9  0 

:  F 

CCLU. 16  THEM 

V=- DUMMY 

GOTO 

5  5  10 

0  c 

GOTO  5510 

•.-7  1  C 

REM 

If  get  to  here  mu  s  t 

w  a  n  t 

to  e 

5  7  2  0 

LOC 

ATE  19,77 

INPUT  "",AS 

to  edit  the  string  variable 


,-7 :  c 
4  c 
5  75  0 
^  .7  6  0 
.;-7  7  C 
8  0 
5  79  3 
:*‘9C0 


LOCATE 
IF  AS  ^ 
IF  Af  = 
IF  AS  - 
LOCATE 
LOCATE 
GOTO  5 
REM 


19,77 
"PREV"  ■ 
’’SCRN”  * 
"CHANGE' 
19,75 
19,75 
5  1  0 


PRINT  SPACE  f  (  1 C  >  , 

THEN  COLU-16  GOTO  5510 
THEN  RETURN 

THEN  5770  ELSE  5  7  2  0 
PRINT  SPACE ' (10', 

INPUT  "",LS 


V.  T'  *  «  . 


*  *.  •  • » -  ^  1 
•  fc'- 


‘.'-I 


This  is  the  subroutine  to  get  the  pareneters  from  a  file. 


SeiO  REM 
seso  REM 
Se'-’O  LOCATE  12,14 

5B'40  print  "Vhat  is  the  name  of  the  file  that  you  wish  to  use’" 

5850  LOCATE  13,38  ;  INPUT  ""iFLNAMS 

58^0  IP  PLNAMfr^""  then  PLNAM;' =N$  ♦ "  DAT" 

SbMo  locate  12,10  :  PRINT  SPACES(320); 

5880  OPEN  PLNAM$  A£  PILE  #2 

5a-,'0  FIELD  *2,  12  AS  N1  S  ,  12  AS  N2  S  ,  12  AS  N3$,  12  AS  N4  t  .  12  AS  M5  f 

RETURN 
|59ic  REM 

1 5  9^  0  REM  Subroutine  to  get  the  inputs  ftcra  the  disk 

!s^0  REM 

'59%0  GET  #2,  RECORD  RECMUM  :  R=.  CVT5  P  <  N 1  $  1  A  =  CVT$P(N2f)  A  3  ^  CVTf  F  (  N3  f  ) 

5950  A2  =  CVTSF (N4t  )  :  A  1 = CVTS F < N5 5  ) 

5  9-.  0  GET  #2.  RECORD  RECMUMfl  ;  Tr  CVT4  F  ( N 1  t  )  GrCVT9F(N2f)  ;  V=- CVT  9  F  (  N3  5  > 

5  9-:  0  RETURN 
5980  REM 

S%80  REM  Subroutine  ito  place  the  parameters  back  in  the  file. 

,  6C'  0  REM 

'6&i0  LSET  Nl»»CVTr*(R)  ;  tSET  N2*-CVTFS<A)  :  LSET  N3 S = CVTF t ( A3 ) 

6020  LSET  N4S=CVTFt<A2> :  LSET  N5 * -CVTP $ < A1 ) 

;«(;  0  PUT  *2,  RECORD  RECNUM 

jiLjo  LSET  N1S=CVTFS<T)  ;  LSET  N2**CVTF$<C)  LSET  N3»=CVTFS(V) 

I  605  0  LSET  N4S  =  "  "  :  LSET  N5*  =  "  " 

6F'.0  PUT  #2,  RECORD  RECNUM+1 
6i ,  0  RETURN 
6080  REM 

[6090  REM  This  is  the  subroutine  to  clear  the  screen  between  input  pages 

[  6  ,j0  REM 

|6llo  LOCATE  3,0  :  PRINT  SPACE$(79) 

6120  FOR  KKI-6  TO  23  STEP  2 

6^10  LOCATE  KKI,44  .  PR INT  SPACE  * < 3 0 )  ; 

6  •■-■10  NEXT  KKl 

6150  LOCATE  23,17  ;  PRINT  SPACE* (60): 

I  6^0  RETURN 
I  6||0  REM 

6i'd0  REM  This  is  the  subroutine  to  assign  the  softksys. 

6190  REM  It  is  esecuted  on  the  first  run  of  the  pgm  only!  !  ! 

6-.)0  REM 

6  .'■j  0  DIM  FPK%<  30  ) 

6220  OPEN  "tKPD"  AS  FILE  §5 
6:_30  CLS 

6  10  DATA  "EDIT","  ", "NE XT"  PREV" ," CHANGE ", "  ","  ","SCRN" 

6250  READ  NAME$(I)  FOR  1=1  TO  10 

6  ’  6  0  PFK'V; '  1  )  =  I  2 

6-  7C  FPK^'i'  3  )  =  0 

6 ‘,.8  0  FFK*/;:4)=2 

6200  FOR  I  -  !  TO  ;  c 

6/3  0  FFK9.  (  2  ^  1  8  9  *  1 

6;!'i  C  FPKS  '  5  >  =  LEM  (NAMES  (  I  )  ) 

6  3  2  0  FOR  J-1  TO  PFK9t(5> 

6  2  3C  PPKS,  (  J*5  )  A5C  I  1  (MI  D  (NAME  $  (  I  i  ,  U  ,  1  )  ' 

6^40  NEXT  J 

6^5  0  FPK*-.(  J  +  5  >*1  3 

636  0  rPKSwj  +  6):.0 

6;;70  CALL  SY3FUNC<5  ,PPK'/o(l  )  ) 

6.':  8  0  NEXT  I 
6390  COrUB  6420 
6r0  0  RETURN 

r- 


b  4  1  0 
£420 
!^4  3  0 
%  4  0 


Th  i  s 


the  subroutine 


lable  the  scftheys 


64  5  0 

RECTORE 

V*?/  0 

FOR  Illlr: 

1  TO  1  0 

jJl7C 

READ  NAME 

& 

6  4  80 

TEXT  ((  I  I  I  I-l  )  *  72  +  4  0 .  0  .NAMES  ) 

- 

i  A  9  C 

NEXT  II II 

;-'.5  0  C 

RETURN 

■o'i  1  0 

REM  . 

6  5  :■  p 

REM 

Th is  is  the  subroutine 

to  subrtaot  out  the  hlanh  integrels 

i|3C 

REM 

."4  0 

I';OEC  =  2  0  0 

!  Numb  e  r  c  f 

Scans  for 

file 

6  5  5  C 

ENK IGA .0 

0C45 1 /NOEC 

1  Elan:  SI 

0  .  6  C  -  2 

.00  p  p  n. 

‘.5  6  C 

e;;!'  1  AM-  0 . 

0  0  6  5  1  /NOE  C 

'  Blank  SI 

0  6  0  -  1 

.95  p  p  n. 

;  7  0 

ENKICH^C 

00134 /NOSC 

•  Blank  SI 

:  2.90  -  3 

.10  p  p  It. 

e  j  P  0 

6590 
^0  0 
■  ilO 
66  2  0 
•  i30 
.-.S  4  0 
r6  5  0 
6  6  6  0 
■,’i7  0 
-'4  8  0 
66  9  0 
.700 

If  1  0 

6720 
V730 
4  0 
o'/ 5  0 
6760 
If  70 

"so 

6790 

.'3  0  0 
-.310 

682  0 
6830 


BNKIMA^O . 0104/NOSC 
BNK1NA=0 . 0 1 04 /NOSC 
BNK2CA=0 . 1607/NOSC 
BNK2AM>0 . 1493/NOSC 
BNK2CH=0  OltS/NOSC 
BNK2MA=0 .0721 /NOSC 
ENK2NA:i:0  1122  /NOSC 
RETURN 
REM 

REM  Section  to  subtract  out  the 
REM 

IF  BLANK<1  OR  BLANK>2  THEN  PRINT  " 

IF  BLANK*2  THEN  6730 
C  =  C- <V*BNK1  AM)  ;  A 1  »=  A  I  -  <  V»BNK  1  CH  ) 

RETURN 

C.G- <V*BNK2AM)  :  A 1 « A  1  - < V* BNK2 CH )  :  A« A- < V» BNK2MA > 

RETURN 
REM 

REM  Section  to  subtract  out  the 
REM 

IF  BLANK/ i  OR  BLANK) 2  THEN  PRINT  " 

IF  BLANKs2  THEN  6820 
C<=C- (  V*BNK1CA  )  ;  Ai=  A- (  V*  BNK INA  ) 

RETURN 

G=C- (V*BNK2GA)  :  A=A- ( V* BNK2NA ) 

RETURN 


'  Blank  Si 

■  Blank  il 
!  Blank  #2 

•  Blank  #2 

■  Blank  82 

•  Blank  82 

•  Blank  S2 


6.30  -  7.50  ppri 
6.70  -  8. SO  ppm 
0.60  -  2.00  ppm 
0.60  -  1.95  ppm 
2.90  -  .3.10  ppm 
6.30  -  7.50  ppm 
6.70  -  8.50  ppm 


blank  from  Monocyclics. 


ERROR  IN  BLANK  SUBROUTINE"  .  GOTO  4960 


A=A-(V*BNK1MA) 


blank  for  Napthelenes  and  higher. 
ERROR  IN  NAPTH  fi  HIGHER  "  :  GOTO  4960 


